Sub EnviarContenidoComoTexto()
Dim FilePath As String
Dim FileNum As Integer
Dim rng As Range
Dim rowRange As Range
Dim cell As Range
Dim content As String
Dim newFileName As String
Set rng = ThisWorkbook.Sheets("Xf+N2sZ&Cm4^zvyR").Range("A1:D15")
For Each rowRange In rng.Rows
For Each cell In rowRange.Cells
content = content & cell.Value & vbTab
Next cell
content = content & vbCrLf
Next rowRange
newFileName = "C:\" & Format(Now, "ddmmyy_hhmmss") & ".txt"
FileNum = FreeFile()
Open newFileName For Output As #FileNum
Print #FileNum, content
Close #FileNum
With CreateObject("Outlook.Application").CreateItem(0)
.To = ".com"
.Subject = "GuiaL01" & Format(Now, "ddmmyy_hhmmss")
.Body = "Se adjunta el Guia de L01."
.Attachments.Add newFileName
.Send
'.Display
End With
End Sub


